/* $VER: article.tes 1.0 (7.10.96) */ /* start */ options results parse arg n x y signal on syntax myhost=n||" '"||x||"'" interpret myhost /* main */ 'GOTO BYTE=1' 'REPLACE STRING="
" BY="" NEXT WILD=FALSE' 'GOTO LINE 2 COLUMN 1' 'QUERY LEN VAR VARX' if VARX<26 then do 'TEXT T=""' 'SMARTCR' 'QUERY NAME LEN VAR VARX' if VARX>1 then do 'CR' 'TEXT T=""' end else 'UP' 'GOTO EOL' 'TEXT T=""' end 'GOTO BOTTOM COLUMN=1' 'QUERY LINE VAR VARX' 'UP' 'FIND STRING="??(#((, ??)|(<*>)))" NEXT WILD=TRUE QUIET' 'QUERY LINE' if RESULT=VARX then do 'TEXT T="